home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / pnnwts.igb < prev    next >
Text File  |  1993-08-23  |  2KB  |  83 lines
  1. inst4.1     !Nov, 1992
  2. !****************************************************************
  3. !*                                *
  4. !*    PNN weights                          *
  5. !*      Same as protowts.igb except learn divisor is smaller    *
  6. !*                                *
  7. !****************************************************************
  8. !
  9.  
  10. @LLsl                !Load super-layer
  11. =n0    Lpes            !Number of layers
  12. =LayN    0
  13.  
  14. ! Look for first layer that learns
  15.  
  16. :Koh1
  17. =n1    LayN            !remember layer
  18. +LayN    1            !next layer
  19. ?LayN    n0
  20. >bgt    KohEnd            !past output layer
  21. @LLly                !load the layer
  22. ?Llrn    0            !is this a preprocessing layer?
  23. >bne    Koh2            !we are past the preprocessing layers
  24. >br    Koh1            !next layer
  25.  
  26. :Koh2
  27. =n4    Lpes            !remember #PEs in Protoype layer
  28. =SPEl    LayN            !set up as selected (dest) layer
  29.  
  30. !Load previous layer
  31. =LayN    n1
  32. @LLly
  33. =n3    Lpes            !remember #PEs
  34. =NPEl    LayN            !set up as near (source) layer
  35.  
  36. ! Add probe
  37. =PNam    "ProtoWts"        !probe name
  38. @PbAS                !Add Probe
  39. @PbDC                !Delete all components
  40. @PALC                !Layer Connections
  41.  
  42. ! Now build the instrument
  43. @ILdD                !load default instrument
  44. =ITit    "Prototype Weights"    !Instrument title
  45. =IGTy    "Hinton"        !Graph Type
  46. =IGVr    "Weight"        !Variable
  47. =ITTy    "RMS"            !RMS Transformation Type
  48. =ITMd    0            !No transformation
  49. =IEpc    0            !No epoch
  50.  
  51. =Ignx    n3
  52. =Inpl    n4
  53. *Inpl    n3
  54. =Iwdt    7
  55. *Iwdt    n3
  56. ?Iwdt    140
  57. >bgt    Koh4
  58. =Iwdt    140
  59. :Koh4
  60. =Ihgt    7
  61. *Ihgt    n4
  62. ?Ihgt    100
  63. >bgt    Koh5
  64. =Ihgt    100
  65. :Koh5
  66.  
  67. =Ivmn    0.0
  68. =Ivmx    1.0
  69. =ILnA    1            !Active in Learn
  70. =IRcA    0            !Inactive in recall
  71. =ILDv    15            !Every 15 iterations
  72. =ILRm    0
  73. =IRDv    0
  74. =IRRm    0
  75. =IPrb    PNam            !Point to probe
  76. =ICAc    0            !Convergence criterion inactive
  77. =ICTh    0.0            !Convergence Threshold
  78. !Let NeuralWorks figure out where to put instrument
  79. =x    0
  80. =y    0
  81. @IAdd                !Now create instrument
  82. :KohEnd
  83.